10 IF X=1 THEN 40
20 DV=PEEK(186)
25 IF DV<8 THEN DV=8
30 X=1:LOAD"LISTWEDGE.VA",DV,1
40 POKE774,91:POKE775,152
50 POKE 56,152:POKE 55,80
70 REM JIFFYDOS USERS MAY WISH TO
80 REM REMOVE LINE 60.
82 REM   TO ENTER 'LIST WEDGE':
85 REM   A)  HOLD DOWN SHIFT KEY
90 REM   B)  HOLD DOWN F1 KEY
100 REM  C)  RELEASE SHIFT KEY
110 REM  D)  RELEASE F1 KEY
115 F1$="@$:?*"+CHR$(13)+CHR$(0)
120 F2$="LIST"+CHR$(13)+CHR$(0)
125 F3$="/"+CHR$(0)
130 F4$="@T"+CHR$(0)
135 F5$="^"+CHR$(0)
140 F6$="_  "+CHR$(34)+"@:"+CHR$(0)
145 F7$="%"+CHR$(0)
150 F8$="@  "+CHR$(34)+"S:"+CHR$(0)
155 F$=F1$+F3$+F5$+F7$+F2$+F4$+F6$+F8$
160 BUF=820
165 FOR I=1 TO LEN(F$)
170 POKE(BUF+I-1),ASC(MID$(F$,I,1))
172 NEXT
175 POKE 176,BUF-( 256*(INT(BUF/256)) )
180 POKE 177,INT(BUF/256):POKE155,0
200 CLR:NEW